home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / listing 2-3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  926b  |  27 lines
  1. 10 rem ***  puls-modulation
  2. 11 :
  3. 12 :ut=10   :rem auf-zeit     (up-time)
  4. 13 :dt=10   :rem ab-zeit    (down-time)
  5. 14 :ul=40   :rem auf-schritt (up-level)
  6. 15 :dl=20   :rem ab-schritt(down-level)
  7. 16 :p=400   :rem start-tastverh.(pulse)
  8. 19 :
  9. 20 rem * ton einschalten
  10. 21 :
  11. 22 s=54272:pokes+4,8:pokes+24,15 :rem  volle lautstaerke
  12. 23 pokes+6,255:pokes+5,0:pokes+4,65 :rem  adsr und rechteck-wellenform setzen
  13. 25 pokes,0:pokes+1,10 :rem  tonhoehe setzen
  14. 26 pokes+2,pand255:pokes+3,p/256 :rem tastverhaeltnis mit lo-und hi-byte setzen
  15. 29 :
  16. 40 rem * pulse !
  17. 41 :
  18. 42 fori=0tout :rem  schleife fuers hochzaehlen
  19. 43 p=p+ul     :rem  tastverhaeltnis um up-level erhoehen
  20. 44 pokes+2,pand255:pokes+3,p/256 :rem  neues tastverhaeltnis setzen
  21. 45 next       :rem  schleifenende
  22. 47 fori=0todt :rem  schleife fuers runterzaehlen
  23. 48 p=p-dl     :rem  tastverh. um down-level vermindern
  24. 49 pokes+2,pand255:pokes+3,p/256 :rem  neues tastverh. setzen
  25. 50 next       :rem  schleifenende
  26. 52 goto42     :rem  ...und nochmal...
  27.